From 8896f2df11e2a46ec27ba826a277c40f7a9714c1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 9 May 1993 01:14:47 +0000 Subject: [PATCH] (rmail-convert-to-babyl-format): Delete 1 char if we see a newline instead of what we expect. --- lisp/mail/rmail.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 036efc4564c..e11d40a7097 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -797,9 +797,11 @@ argument causes us to read a file name and use that file as the inbox." (insert ?\^_) (narrow-to-region (point) (point-max))) ;; - ;;This is a kludge, in case we're wrong about mmdf not - ;;allowing anything in between. If it loses, we'll have - ;;to look for something else + ;; This kludge is because some versions of sendmail.el + ;; insert an extra newline at the beginning that shouldn't + ;; be there. sendmail.el has been fixed, but old versions + ;; may still be in use. -- rms, 7 May 1993. + ((eolp) (delete-char 1)) (t (error "Cannot convert to babyl format"))))) count)) -- 2.30.2